home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #11
/
Commodore_Disk_User_Vol.4_11_1991_-.d64
/
pop-up demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
770b
|
28 lines
1 rem pop-up demo. cmb/64....l.jack. 1986
5 c=c+1:ifc=1thenload"bpop",8,1
10 n=3:gosub500
20 poke679,0:sys49152:rem store current screen
30 l=6:w=10:c=0:b=1:sa=1238:gosub100
40 l=10:w=3:c=7:b=2:sa=1106:gosub100
50 l=4:w=18:c=11:b=3:sa=1388:gosub100
60 poke679,1:sys49152:rem recover original screen
70 end
100 rem poke in parameters & call m/c
110 poke679,l:poke680,w:poke681,c:poke682,41-w:gosub200
120 poke252,a(0):poke251,a(1):poke253,a(1):poke254,a(0)+212
130 sa=box(b):gosub200:sys49251:w=w-2
140 poke253,a(1):poke254,a(0):poke682,41-w:sys49404
150 gety$:ify$<>"c"then150
160 return
200 a(0)=int(sa/256):a(1)=sa-a(0)*256:return
500 ad=49461:fork=1ton
510 box(k)=ad
520 reada$:forj=1tolen(a$):p=asc(mid$(a$,j,1))
530 ifp=42then550
534 ifp>64thenp=p-64
540 pokead,p:ad=ad+1:nextj
550 nextk:return
560 data"here's a pop-up tester press c *"
565 data"press c *"
570 data"o.k. now restorescreen...press c*"